Sub potencia(ByVal pBase As Double, Optional ByRef pExponente As Double)
    Debug.Print "Base : " & pBase & " Exponente : " & pExponente _
    & " Resultado : " & pBase ^ pExponente
End Sub
